home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / ALPBET.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  768b  |  43 lines
  1. 1 GOTO10
  2. 2 GET#8,X$
  3. 3 IFST<>0THENFL=1
  4. 4 IFFL=1THENRETURN
  5. 5 IFX$=CHR$(13)THENRETURN
  6. 6 A$(I)=A$(I)+X$
  7. 7 GOTO2
  8. 10 OPEN15,8,15,"I"
  9. 11 I=1
  10. 15 DIMA$(500)
  11. 16 INPUT"FILENAME TO READ INPUT";IN$
  12. 17 INPUT"FILENAME TO WRITE OUTPUT";OUT$
  13. 18 OUT$="0:"+OUT$+",S,W"
  14. 19 OPEN8,8,8,IN$
  15. 20 GOSUB1000:PRINTCHR$(147)
  16. 21 X$="":GOSUB2
  17. 24 I=I+1
  18. 27 PRINT"        ...[210]EADING [197]NTRY  #";I
  19. 30 IFFL<>1THEN21
  20. 35 VA=I:CLOSE8
  21. 40 OPEN9,8,9,OUT$
  22. 45 GOSUB1000
  23. 80 PRINT"[147][215]AIT...":PRINT"[193]LPHABETIZING
  24. 90 [129]A[178]1[164]VA[171]1
  25. 95 [153]"*";
  26. 100 [129]B[178]A[170]1[164]VA
  27. 110 [139]A$(B)[179][178]A$(A)[167]SM$[178]A$(B):A$(B)[178]A$(A):A$(A)[178]SM$
  28. 120 [130]
  29. 130 [130]
  30. 140 [153]"LOADASCINISHED ALPHABETIZING"
  31. 210 [129]A[178]1[164]VA[169]23
  32. 220 [129]B[178]A[164]A[170]22
  33. 230 [153]A$(B)
  34. 235 [152]9,A$(B)
  35. 240 [130]B
  36. 260 [130]
  37. 270 [160]9
  38. 299 [128]
  39. 1000 [132]15,A1,B$,C1,D1
  40. 1005 [153]A1,B$,C1,D1
  41. 1010 [139]A1[179][177]0 [167] [144]
  42. 1020 [142]
  43.